home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / NAMEISIN.PPS < prev    next >
Text File  |  1996-08-29  |  715b  |  30 lines

  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; FUNCTION NameIsIn()
  6. ;
  7. ; Returns true if current user's name is in the file passed as parameter
  8. ;
  9. ;----------------------------------------------------------------------------
  10. #lib
  11. #nouser
  12.  
  13. Declare Function NameIsIn(String File) Boolean
  14.  
  15. Function NameIsIn(String File) Boolean
  16. String Name
  17.  
  18. Fopen 1, PPEPath() + File, O_RD, S_DN
  19. While (!Ferr(1)) Do
  20. FGet 1, Name
  21. If (Left(Name, 1) <> ";") Then
  22.     If (Name = U_Name()) Then
  23.         NameIsIn = True
  24.         Break
  25.     Endif
  26. Endif
  27. Endwhile
  28. Fclose 1
  29. Endfunc
  30.